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AAAAAAAAA 
AAAAAAAAA 
AK AAA 
AAA AAA 
LValal AAS 
Aas AAA 
AAA AAA 
AAA AAA 
AAA AAA 
ABA AAA 
AAA aA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ABS AAA 

A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
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000000 PPPPPPPP DODDDDDD RRRRRRRR VV VV WW tle SSSSSSSS 

00 00 PP PP DD DD RR RR VV VV WW Ww SS 

00 00 PP PP 0D DD RR RR VV VV WW ww SS 

00 00 PP PP DD DD RR RR VV VV WW ww SS 

00 OO PP PP DD DD RR RR VV VV WW Ww SS 

00 00 PPPPPPPP dD DD RRRRRRRR vv VV WW bel SSSSSS 

00 00 PPPPPPPP oD DD RRRRRRRR vv VV WW ‘wb SSSSSS 

00 00 PP dD DD RR RR vv VV Ww Ww WW $$ 

00 00 PP DD DD RR RR vv Vo WW iia $$ 

00 00 PP dD DD RR RR vv vv WWW = Wil SS eeee 

00 00 PP oD DD RR RR VW VV WwW WWW SS eeee 
000000 PP DDDDDDDD RR RR VV wi WW SSSSSSSS eeee 
000000 PP DDDDDDDD RR RR vv Wel Ww SSSSSSSS eeee 
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LL M1111 SSSSSSSS 
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eTITL PDRVWS = VAX/VMS QVSS CONSOLE TERMI DRIVER 
“IDENT °yO4~002" pe hares 


PRAHA KHKHH HET KHTE HEHEHE KeHKAKAeeeKeeKeeteeneeeeeeereneretereteReeeeeeeeeee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


o 
® 
® 
® 
® 
® 
® 
® 
we 
2 
* TRANSFERRED, 
e 
® 
a 
® 
® 
® 
& 
€ 
® 
® 


(8 eat a 4 a a 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
vORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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000 FACILITY: 
0000 
4 VAX/VMS 1/0 SUBSYSTEM 
09 ABSTRACT: 
. AUTHOR: Bill Matthews 
0 OPDRIVER AUTHOR: Trudy Matthews, Benn Schreiber 


MODIFIED BY: 


v04-002 K0M0110 Kathleen D. Morse 11-Dec-1984 
Change name of module to OPDRVWS instead of OPDRVWS1, 
since module is same for MicroVAX II and I. 


V04-001 WHMO0002 Bill Matthews 09-0c t-1984 
Added clear input FIFO logic to CONSRELEASECTY. 


v03-001 WHAOO001 Bill Matthews 01-Aug-1984 
Initialize the saved scan map. Save r0 across call to remap. 
Initialize the permanent terminal device characteristics. 
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= VAX/VMS QVSS CONSOLE TERMINAL DRIVER 9x sann 1383 40:38:46 ote Macro y04-00 Page g 
REGISTER DEFINITIONS 15-DEC-1984 09:28: SYSLOA.BUGSRC JOPDRVWS .MAR; 4 (2) 
§ ; SYMBOL DEFINITIONS 
5 ec 
§ SADPDEF 3; DEFINE ADAPTER CONTROL BLOCK 
SCRBDEF 3; DEFINE CRB 
§ CONDEF ; DEFINE CONSOLE FUNCTION CODES 
SOCDEF ; DEFINE DEVICE CLASSES 
60 SDOBDEF ; DEFINE DDB 
61 SDEVDEF ; DEFINE DEVICE CHARACTERISTICS 
66 SOPTDEF ; DEFINE DPT 
6 soviet ; STRUCTURE TYPE CODE DEFINITIONS 
64 IDBOEF ; DEFINE 108 
65 SIPLOEF ; DEFINE IPL LEVELS 
0 96 SIRPDEF 3 4 if be IRP OFFSET 
6 SPRDEF 3; DEFINE PROCESSOR REGISTERS 
98 st TQEE ; DEFINE TERMINAL CHARACTERISTICS 
4 § STT2DEF ; DEFINE MORE TERMINAL CHARACTERISTICS 
100 0 SUCBDEF ; DEFINE UCB 
000 71 STTYDEFS ; TTY UCB extension (must FOLLOW SUCBDEF) 
000 i STTYMACS 3; TTY macro definitions 
00 7 SVADEF ; DEFINE VIRTUAL ADDRESS CONSTANTS 
00 74 SVECDEF ; DEFINE CRB VECTOR 
0000 75 SWCBDEF : Define wCB 
0000 7 SCINDEF ; Connect to interrupt offsets 
000 7 SRBMDEF ; real time bitmap offsets 
000 SPTEDEF ; DEFINE PTE 


L 5 
OLE TERMINAL DRIVER § 
S 1 


WO OONOUF wo 


0000 


RBSL_SCAN_MAP = CRBSL_TIMELINK 

RBSL_VIDEO BASE = CRBSL_TOUTROUT 

RBSL_OPFLAGS = CRBSL_AURSTRUC 
CRBSL_OPFLAGS DEFINITIONS 


SVIELD OP,0,<- 
<réI 


SEAS EVE SP 


~JAN-19 
~DEC-19 


$? $538: 46 AX/VAS Macro y04-00 Page 3 | 


SYSLOA.BUGSRC JOPDRVWS .MAR; 4 (4) 


ADDRESS OF SCAN MAP SAVE AREA 
VIRT ADDR OF BASE OF VIDEO MEMORY 
MCORIVERT FLAGS BETWEEN OPDRVWS1 AND 


First 3 scan Lines must be reinited 
First 246 scan Lines not on screen 


; OPDRVWS1 is using the first 24 scan Lines 


VCDRIVER has been initialized 


ew 5 
OPDRVWS = VAX/VMS QVSS CONSOLE TERMINAL DRIVER g-JAN-1985 17:33:26 VAX/ vs Macro v04-00 Page 4 
v04=002 REGISTER DEFINITIONS 13=DEC-1984 09:28: SYSLOA.BUGSRC JOPDRVWS .MAR; 4 (4) 
95 
38 : UCBSW_QV_KEYSTATE DEFINITIONS 
9 SVIELD KEY,0,<- 
3 <APPKEYPAD, ,M>= 
100 <HOLD, ,M>= 
101 <LOCK. .M>= 
1 ; <SHIF ET. .M>= 
1 <CTRL, ,M>= 
9 0 04 <BUTTOG, ,M>- ; MOUSE BUTTON SAMPLE TOGGLE 
1 
81 
000 108 ; OUTPUT INTERRUPT QUEUE 
0000 109 ; 
0000 110 
00000000 111 -PSECT SYSLOA.LONG 
0000 112 


ee an) 


nN 5 
OPDRVW = VAX/VMS QVSS CONSOLE TERMINAL DRIVER §-JAN-19 5 42:33:26 AX/VMS Macro v04-00 Page 3 OPO 
v04=00 CONSOLE CONTROLLER INITIALIZATION 13-DEC-1984 09:28: SYSLOA.BUGSRC JOPDRVWS MAR; 4 (5) v04 
114 ae .SBTTL CONSOLE CONTROLLER INITIALIZATION 
99 116 : CONSINITIAL = INITIALIZE CONSOLE CONTROLLER 
2 118 : FUNCTIONAL DESCRIPTION: 
08 p : THIS ROUTINE 1S USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE CONTROLLER. 
00 122 ; INPUTS: 
4 1 : ; 
0000 124: R4 = CSR ADDRESS 
900 125 : RS = UCB ADDRESS 
999 6 : R9 = CRB ADDRESS 
0900 8 ; OUTPUTS: 
9000 0 : ALL REGISTERS ARE PRESERVED. 
0990 é CONSINITIAL:: ; INITIALIZE CONSOLE INTERFACE 
QOO00000'EF FFFFFFOO'EF Dé 9000 4 MOVAL  QVSSSKEY-112, QVSSSKEYTABLE ; INITIALIZE THE KEYBOARD TRANSLATIO 
52 DD ie 13% PUSHL R2 ; SAVE R2 
$2. 00000000°GF DO 0000 137 MOVL  G*IOCSGL_ADPLIST.R2 : GET ADP ADDRESS 
52 30 10 A2 C1 0014 138 ADDL3 ADPSL_VECTOR(Re) .#*060 Re : GET ADDR OF VECTOR TABLE ENTRY 
62. 00000025'GF 9€ 9019 139 MOVAB G*OPASCRE+CRBSL_INTD+VEC$Q_DISPATCH+1,(R2); CONNECT THE VECTOR 
9020 141 : SET UP INTERRUPTS 
OF AS «00 s*90 00 0 128 . MOVB #0 .avCsR INTCTL(RG) ; RESET INTERRUPT CONTROLLER 
O06 AG «640 BF 90: «(0024—Ss«d14 MOVB = #*K40 QVESR_INTCTL (RG) : RESET IRR 
OF AG «080 BF O90 «0029Ss«145 MOVE #*X80.QVCSRTINTCTL(R4) : SPECIFY INDIVIDUAL VECTORS 
OF AG «CO BF 6090 s«O00 E 146 MOVB #*XCO.QVCSRTINTCTL(R4) : PRESET AUTOCLEAR DATA 
OC A4 FF 8F 90 i ie MOVB @°XFF ,QVCSR_INTDATA(R4) ; ALL ARE AUTO CLEAR 
0038 169 : VECTOR SPECIFIC 
OF AG CEO ef 90 0038 151 MOVB  - #*XEQ,QVCSR_INTCTL(R4) ; PRESET VECTOP ADDRESS (ONE) 
0C AG 630) «90:03 138 MOVE © #*060, QVCSR7INTDATA(R4) t USE SPECIAL veCTO 
OF AG «28 «90 «(0041—Sés«15 MOVB = #*X28. QVCSRTINTCTL(R4) : ENABLE TX/RX INTERRUPT 
OF AG OAL BF O90 0045 134 MOVB - #*KA1QVCSRTINTCTL(R4) : ARM THE INTERRUPT CONTROLER CHIP 
Gbek 186 
4A 158 ; SET UP UART 
gh 
2406 19 BO 004A 161 MOVW  #*X19, QVCSR_URTCMDA(R4) : RESET MODE POANTER, ENABLE RCV, DI 
20 AG 17 BO 004 16¢ MOVW #*X17-.QVCSRTURTMODEA(R4) : SET MODE 1 ,NOPARITY, 8 BIT 
22 mit Hos BBE ee TE RB FSHOE A SS-URTRORNGS) 7 Ela ‘uat aay 0 
2a a6 «02~—=CO«wO o65 18 MOVW = #*X02QVCSRIURTINT (R4) : ENABLE REC INTERRUPTS 
W  « A<QVCSRSM_ENA_VIDEO!QVCSRSM_ENA_INT>,-; ENABLE VIDEO 
= of - bee 18s ihe ayCSRLCTL TRG)” ' _ InfeRRuPTs AND CURSOR=AND 
52 BEDO 065 1g POPL R : RESTORE R 
0 68 170 RSB 
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B 6 

avss CONSOLE TERMINAL DRIVER -JAN=1985 17:23:26 VAX/VMS Macro V04-00 Page 
T INITIALIZATION if -DEC-1984 09: ‘33: #8 YOYSLOA. BUGSRCJOPDRVWS.MAR; 4 ~ 
173 ~SBTTL CONSOLE UNIT INITIALIZATION 
124 : CONSINITIAL = INITIALIZE CONSOLE UNIT 

176 : FUNCTIONAL DESCRIPTION: 

178 : THIS ROUTINE IS USED AT SYSTEM STARTUP TO INITIALIZE THE CONSOLE UNITS. 
0; : INPUTS: 
1 ; RS = UCB ADDRESS 
33 R9 = CRB ADDRESS 
185 : oUTPUTS: 
187 ALL REGISTERS ARE PRESFRVED. 

189 CONSINITLINE:: 
190 PUSHL RO : SAVE RO 
191 MOVAL G*OPASVECTOR, RO : GET THE VECTOR ADDRESS 

198 CLASS_UNIT_INI + AND INIT THIS UNIT 
19 MOVL UCBSL TT_CLASS(RS),.RO : ADDRESS OF CLASS VECTOR TABLE 

194 JSB LASS_SETUP_UCB(RO) NITIALIZE THE UCB FOR CONSOLE TERMINAL 
195 30$: BBC autesv POWER “UCBs. trscrg)! AOS. DID WE DETECT A POWER FA 

196 MOVL UCBSL_TT_CLASS(R5) 7RO GET THE CLASS VECTOR TABLE * ADDRESS 
13 JSB SCLASS _POWERFAIL (RO) AND GOTO THE POWERFAIL CODE 
199 40$:  POPL RO ; RESTORE RO 
201 MOVB #TT$_UNKNOWN,UCBSB_DEVTYPE(RS); SET UNKNOWN TERMINAL TYPE 
20g BISL  #TTSA_SCOPE ,UCBSL. REVDEPEND(RSS; QVSS IS SCOPE 

0 BISL  #TT2$M EDITING, UcaSL_DEVDEP PND2(RS) ; ENABLE LINE EDITING 

04 BICL #<TT2$A ANSICRIT125M_DECCRTD. THIS D RIVER DOES NOT 

05 UCBSL_DEVDEPND2(R5) EMULATE VT 
206 MOVQ  =UCBSL“DEVDEPEND(R5) ,UCBSL_TT_DECHAR(RS); MAKE PERMANENT 
$08 CONSSET LINE tt 
309 CONSDS_SET: 

10 CONSSET ODER: 

1 CONSNULC: : is, 

8 CONSDISCONNECT:: 3 CALLED ON LAST DEASSIGN 

14 PUSHR M<RO, R1.R R3,R4,R5> e Ste REG Ist ERS 

15 MOVAL Goopaet RB.R : GET ADDRESS 

i6 BBC #OPSV_VCACTIVE, eRest -geri acs (ns) 850 C IF VCDRIVER NOT INITED 
17 10$: Blt #OPSK OPACTIVE.CRB FLAGS (R3) CLEAR R OPACTIVE FLAG 

18 20$: POPR <RO,R1,R2,R5, Rea ; RESTOR ore REGISTERS 
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VER “JAN-1985 17:23: AX/VMS Macro V04-00 P 
ER 1§-paN=33 4 09:58;48 SYSLOA.BUGSRCJOPDRVWS .MAR: 4 


" ~SBTTL CONSOLE RECIEVER INTERRUPT DISPATCHER 
CONSINTINP = CONSOLE INTERRUPT ON INPUT READY 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED AS A RESULT OF A RECEIVER INTERRUPT ON THE 
QVSS KEBOARD. 


QVSS TERMINAL: ALL RECEIVED DATA CHARACTERS ARE CONS:DERED 
UNSOLICITED AND RESULT IN AN ENTRY INTO THE 
TERMINAL DRIVER COMMON CHARACTER BUFFERING 
ROUTINE "‘@UCBSL_TT_PUTNXT(RS)". 

INPUTS: 


RO,R1,R2,R3,R4,R5 ARE SAVED ON THE INTERRUPT STACK. 
OO(SP) = ADDRESS OF THE IDB 

OUTPUTS: 
THE SAVED REGISTERS ARE RESTORED BEFORE REI. 


CONSINTINP: : 


MOVL a(SP)+,R4 ; GET IDB ADDRESS 
MOVL IDBSL_CSR(R4) ,RO ; GET CSR ADDRESS 


: GET THE ASSOCIATED UCB 


MOVZBL QVCSR_URTBUFA(RO) ,RO ; GET INPUT DATA FROM LK201 


; CALLED HERE FROM VCDRIVER WITH CHARACTER IN RO AND IDB ADDRESS IN R4 


CONSVCINP: : 
MOVL IDB$L_UCBLST(R4) .R5 ; GET UCB O ADDRESS 
BISW #UCBSA_INTTYPE ,UCB$W_STS(R5); SET RECEIVER INTERRUPT 
BSBW QVSSSKEYDECODE ; DECODE THE KEYBOARD CHARACTER 


: CONSOLE TERMINAL INTERRUPT 


MOVO (SPF) +-<R2 
MOVO = (SP) + RG 


10s: MOVZBL RO,R3 : ZERO TOP 3 BYTES 
BEQL §©- 30 : DON'T PASS NULLS THRU 
JSB QUCBSL_TT_PUTNXT(RS) ; BUFFER THE CHARACTER 
BEQL : IF EQL THEN NO CHARACTER TO OUTPUT 
0$: 8SBB  CONSSTARTIO : OUTPUT THE CHARACTER 
:  MOVa  (SP)4,RO + RESTORE REGISTERS 
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OOO 0000000090909 00 0D 0908 SI NINII 
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N “DEC-1984 09 
‘ «SBTTL START 1/0 ON CONSOLE INTERFACE 
CONSSTARTIO = START 1/0 ON CONSOLE INTERFACE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED TO OUTPUT A CHARACTER TO THE CONSOLE INTERFA 
; IF Mas A gd a READY THE DATA IS OUTPUT DIRECTLY. IF THE INTERF 
IS_ NOT READY THEN THE DATA IS QUEUED AND SUBSEQUENTLY OUTPUT ON THE 
NEXT OREADY INTERRUPT. 


IN EITHER CASE, A RETURN TO THE CALLER IS DONE TO ENTER A ‘WAIT FOR 
INTERRUPT"’ STATE. 


INPUTS: 
R3 
R5 


SYSLOA.BUGSRC JOPDRVWS .MAR; 4 


DATA TO OUTPUT 
UCB ADDRESS 


OUTPUTS: 
R3,R4,R5 ARE PRESERVED. 


CONSSTARTIO:: 3 
0 10S: BLSS 20$ : BRANCH IF BURST MODE 
MOVZBL R3,RO ; GET CHARACTER TO OUTPUT 
BSBW ia ; OUTPUT CHARACTER 
BRB 0$ ; CHECK FOR MORE TO OUTPUT 


20$: 
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; TAKE CHARACTER OUT OF BURST BUFFER AND TRY TO OUTPUT IT IMMEDIATELY 


MOVZBL @UCBSL_TT_OUTADR(RS),RO ; OUTPUT NEXT BYTE 
BSBW CONSPUTCHAR 3: JUTPUT CHARACTER 
INCL UCB$L_TT_OUTADR(R5) 3 UPDATE CONT 


DECW BSW" TT-OUTLEN(RS) ; UPDA 
BNEQ HARACTER 
30$: BICB #UCBSM_TIM!UCBSM_INT, uceiu's SIstRs) “CLEAR TIMEOUT AND EXPECTED 
JSB auCcBSL TT_GETNXTTRS) ; GET NEXT CHARACTER 
BNEQ 10$ ; TF Nea. MORE CHARACTERS TO OUTPUT 
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« «SBTTL CONSOLE TRANSMITTER INTERRUPT SERVICE 

16 ; CONSINTOUT = CONSOLE TRANSMITTER INTERRUPT SERVICE 

i 4 i ? FUNCTIONAL DESCRIPTION: 

16 gi : THIS ROUTINE IS A NOP FOR QvSS. 

16 8 ton ONSINTOUT : 
59 BE 7D 160 ova (SP). RO : RESTORE REGISTERS 
2 BE 7D 016 0 nova (SP)+.R ; 
54 «BE OD 166 i MOVO (SP)+.R4 : 

02 016 : REI : 
016A 


OPDRVW 
v04-00 
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eSBTTL CONSO 
CONSXOFF - 
CONSXON = 
CONSSTOP - 
CONSSTOP2 - 
CONSABORT - 
CONSRE SUME 


FUNCTIONAL 


CONTROL OUT 

INPUTS: 
R5 

OUTPUTS: 
R5 


Se Se Ge Ge Ge Ge Ge Ge Ge Gee Ge Ge Se Ge Sete te Se 


C ABORT: : 
CONSRE SUME : : 
RSB 


DEC-1984 09: 
LE PORT ACTION ROUTINES 


SEND XOFF 

STOP OUTPUT 

ALTERNATE STOP 

ABORT CURRENT OUTPUT 
= RESUME STOPPED OUTPUT 
DESCRIPTION: 


PUT ON THE PORT 
UCB ADDRESS 


UCB ADDRESS 


35:98 
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THESE ROUTINES ARE USED BY THE THE TERMINAL CLASS DRIVER TO 
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S 
v04=00 SEND TO E -DEC-19 SYSLOA.BUGSRCJOPDRVWS .MAR; 4 (10) 
168 : .SBTTL SEND COMMAND TO CONSOLE 
168 3 ++ 
1¢3 gi CONSSENDCONSCMD = SEND CPU-DEPENDENT COMMAND TO CONSOLE 
168 rt : FUNCTIONAL DESCRIPTION: 
168 rs ; INITIATE FUNCTION ON CONSOLE 
168 f3 : INPUTS: 
168 i : RO = CONSOLE FUNCTION TO PERF 
1 78 : CONSC_BOOTCPU = SEND “REBOOT SIGNAL TO CONSOLE AND THEN HALT 
168 379; CONSC~ =CLRWARK = CLEAR CONSOLE WARMSTART 
168 0; SC“CLR COLD = CLEAR CONSOLE COLDSTART f 
168 1: R2 = NUMBER OF BYTES OF DATA TO BE RETURNED (= 0 IF NO DATA EXPECTED) 
0168 : : CEURRENTLY” ONLY IMPLENENTED IN 11/790 VERSION OF THIS ROUTINE) 
0168 : R3 = ADDRESS OF BUFFER TO HOLD RETURNED DATA (ONLY IF R2 IS NON-ZERO) 
0168 s ; (CURRENTLY IMPLEMENTED ONLY IN 11/790 VERSION OF THIS ROUTINE) 
0168 : : OUTPUTS: 
0168 8; CONSOLE STATE MODIFIED 
0168 9; Ri DESTROYED 
olen Se 
0168 392 CONSSENDCONSCMD:: 
50 OFOO 8F ABS 0168 39 BISW  #*XF0O,RO : SELECT MISCELLANEOUS CONSOLE COMM. 
51 22 dB O17 94 10$: MFPR  #PRS TACs. R1 : GET TRANSMITTER STATUS 
F951 «-07”—CO*ESD.s«é«7 95 BBC AR : WAIT FOR CONSOLE READY 
02 50 $1 017 96 CMPB RO “ACONSC_BOOTCPU : REBOOT CPU? 
0B 13 O17A 397 BEQL : IF SOB RANCH 10, HALT AFTER COMMAND 
23 50 ~=DA O17C MTPR RO, #PRS_TXDB ; OTHERWISE A SSERT COMMAN 
ss 2 oz 99 20$:  MFPR #PR$_TXtS,R1 : GET TRANSMITTER STATUS 
F951 «-«07”)—«#E1s«O0182 = 400 BBC #7,RT, 208 : WAIT FOR CONSOLE DONE 
05 0186 401 RSB + RETURN 
23 50 DA 0187 203 30$: MTPR RO,#PRS_TXCB : SEND REBOOT COMMAND TO CONSOLE 
00 018A 404 HALT 
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CONSOLE TERMINAL 13-DEC-1984 09:28: SYSLOA.BUGSRCJOPDRVWS.MAR; Fa at) 
188 4 : «SBTTL ‘ALLOCATE’ CONSOLE TERMINAL 
18g ¢ 44 
18¢ 608 CONSOWNCTY = ALLOCATE’ CONSOLE TERMINAL 
af: 10 ; 
18¢ sit: > FUNCTIONAL DESCRIPTION: 
188 218 THIS ROUT INE ogtout BE CALLED WHEN PERFORMING NON= INTERRUPT DRIVEN 
188 «414: 1/0 TO THE CONSOLE TERMINAL. I DISABLES INTERRUPTS AND DOES ANY 
188 «415: CPU-SPECIFIC INITIALIZATION OF THE CONSOLE TERMINAL REGISTERS. 
186 416 : CONSRELEASECTY SHOULD BE CALLED TO RESTORE THE STATE OF THE CONSOLE 
18¢ 41 ; TERMINAL INTERFACE REGISTERS. 
186 t18 : INPUTS: 
By i 
18¢ 43¢ : OUTPUTS: 
188 424 RO: VALUE TO BE RESTORED TO OPACTIVE FLAG WHEN RELEASING CONSOLE TTY 
18 4 23 Ri: VALUE TO BE RESTORED TO INTERRUPT CSR WHEN RELEASING CONSOLE TTY 
188 4 $ QVSS IS SET UP SO THAT NON-INTERRUPT i/O CAN BE 
91 4 B : PERFORMED TO THE CUNSOLE TERMINAL. 
1 480 i-- 
0 431 CONSOWNCTY:: 
50 00000000'GF DO 01 4 é MOVL  § G*OPASIDB+IDBS$L_CSR,RO 3GET CSR ADDRESS 
51 B0 O19 4 MOVW  QVCSR_CTL(RO) : SAVE INTERRUPT STATE 
60 0040 8F AA 0195 434 BICW  #QVCSRSM_ENA ENT QVCSR_CTL(RO) [DISABLE INTERRUPT 

: AO 00 B80 019A 435 MOVW #0, QVCSR-URTINT (RO) !DISABLE UART INTERRUPTS 

4 AO 3A B0 196 436 MOVW “X2A avesr URTCMDA(RO) PURGE FIFO 

24 a0 09 B80 OIA 437 MOVW #9 -avCSh URTCM TENABLE R 

50 00000010'GF 01 02 IAG 4 } EXTZV #9 00 “OPACTIVE. N RE-OPASCRE*CRASL TOPFLAGS. RO sire OPACTIVE FLAG 


OPDR = VAX/VMS QVSS CONSOLE TERMINAL ohiver “JAN-1985 17:23: AX/VMS Macro v04-00 Page 1 
iret: RELEASE CONSOLE TERMINAL §-pet | 382 §5:58:48 SYSLOA.BUGSRCIOPDRVWS.MAR:4 -* (13) 
180 44 .SBTTL RELEASE CONSOLE TERMINAL 
1B0ae$ ; 
18 oe * CONSRELEASECTY - RELEASE CONSOLE TERMINAL Mo 
18 446 : FUNCTIONAL DESCRIPTION: Wy 
1B a8 : THIS ROUTINE SHOULD BE CALLED TO RELINQUISH EXCLUSIVE USE OF THE TT 
180 449 ; CONSOLE TERMINAL OBTAINED BY CALLING CONSOWNCTY. IT RESTORES THE TT 
18 é $20 : STATE OF THE CONSOLE. yy 
180 4 ; : INPUTS: TT 
180 453: RO: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO OPACTIVE FLAG SY 
18 4 4 : Ri: VALUE RETURNED BY CONSOWNCTY TO BE RESTORED TO INTERRUPT CSR SY 
180 4 $ : OUTPUTS: 
180 457: QVSS AND OPACTIVE FLAG ARE RESTORED TO THEIR ORIGINAL STATE. 
1388 
18 460 CONSRELEASECTY:: 
00000010°GF_ 01 02 50 FO O18 INSV RO, #OP $V OPACTIVE #1, G*OPASCRB+CRBSL _OPFLAGS; RESTORE OPACTIVE FLAG 
50 00000000'GF 00 0189 te3 MOVL G*OPASIDB+1DB$ C&R. RO :GET CSR ADDRESS 

4A0 2A B80 0100 46 mOVW aye} QvcsR MDACRO) [PURGE INPUT FIFO 

34 AO 09 BO O1C6 464 MOVW = #9, OVER arene TENABLE RECEIVER 

AAO 02 B80 O1C8 465 mOVW #02 QVCSR_URTINT(RO) TENABLE UART INTERRUPTS 

60 80 O1CC 466 MOVW 1,QVCSR_CTL(RO) SRESTORE INTERRUPT STATE 
> Bio ee ste 
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. .SBTTL = GET A CHARACTER FROM THE CONSOLE TERMINAL 
> CONSGETCHAR = GET A CHARACTER FROM THE CONSOLE TERMINAL 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALLED Y DO NON-INTERRUPT DRIVEN 1/0 
DIRECTLY TO THE CONSOLE TERMINA 


INPUTS: 
None 


OUTPUTS: 
RO contains the character. 


control_s = 19 : control s (xoff) 
control-q = 17 ; control q (xon) 
qvuart$m_orxrdy = 1 3; receiver ready bit 
ae 
$: movl J “opaSidb+idb$l_csr,r0 ;get qvss csr address 
10$: bitw ore, rxrdy,qvcsr_urtstata(r0);receiver ready? 
beql 3 eql not ready 
movzbl aqvcsr_urtbufa(r0),r0 et character scan code 
bsbw avss$keydecode sdecede the Lk201 input data 
tstl r0 ineed more input? 
beaql 5$ z:if eql yes 
rsb ireturn 
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- SBTTL 


is = PUT A CHARACTER OUT ON THE CONSOLE TERMINAL 
; CONSPUTCHAR = PUT A CHARACTER TO THE CONSOLE TERMINAL 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE SHOULD BE CALL 
DIRECTLY TO THE CONSOLE TER 


tang NON-INTERRUPT DRIVEN 1/0 


"1. - Character to be output 


OUTPUTS: 
Character written to the console terminal. 


nabl 
ONSPUTCHAR: : 


—o 4 > 4 4 2b a > ss —) —) a a ss bs 4s a ss ss 


03 00000000 ' GF 


E 
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bad 
oe 
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wn 
wen 


DAFA $$ OODNOAOUN EW O ODN UNE UO OONIO NEU 
oO 
wf 
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PUDPVIUPVIVSVSPUSVSUSUSUSISVUSISVUSISUSIA ISIS SISSIES 


Nm 


~y 
rs 
-dsabl 


ts pe + ne 


3), Tie cend tame if we have control of t 


v yo ae -eotiiestt 
ie opal, g*exe$gl_ wst lags, 18;output to opa0 enabled? bs yes 


apiuanith” 9s; sreinit ™ scan lines? 
—- -¥ deo pesese 3) 


s 
r+: prety nat _optlagstr ), “S: ii scan Lines to screen? 
remap ee Lines to the screen 
oe video_base(r3) ,r3 


:get va of video memory 
‘ “opaSidb+idb$l_csr.ré :9 


sget va of qvss csr 
sOutput the character 
srestore registers 
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19 ~SBTTL = INITIALIZE CONSOLE TERMINAL FOR NON-INTERRUPT DRIVEN 1/0 
; CONSINIT_CTY = INITIALIZE QVSS FOR NON-INTERRUPT DRIVEN 1/0 

FUNCTIONAL DESCRIPTION: 


THIS ROUTINE MUST BE CALLED FROM INIT BEFORE ANY CONSOLE TERMINAL 1/0 
CAN OCCUR. 


INPUTS: 


OUTPUTS: 
VIDEO MEMORY MAPPED. 
1/0 SPACE THAT CONATINS THE CSRS FOR QVSS MAPPED. 


rn TRIR IRIE TET TE TT 
qa 


ONSINIT_CTY:: : INITIALIZE QVSS CONTROLLER 


: SAVE REGISTERS 
PUSHR #*M<R1,R2,R3.R4> 


t INITIALIZE THE KEYBOARD TRANSLATION TABLE 
MOVAL OQVSSSKEY-112, QVSSSKEYTABLE 


; Initialize OPDRVWS1 state flags 
MOVAL G*OPASCRB.R3 GET THE CRB ADDRESS 


WR $9 ODNA AE WN $9 OONAUNE WS "OOO NOUNE UO "O00 = 


: GET VIRTUAL ADDRESS OF CSR IN R4 


MOVL G“BOOSGL _SPTFREL .R2 
INCL G*BOOSGL “SPTFREL 

L G*MMGSGL-SPTBASE ,R1 
7? MOVAL (R1)CR2),R1 


GET A FREE SPT 


GET VA OF as SPT BASE 
ss VA OF SPT PTE 


#9,R2,R2_ MAKE VA 

BISL avisn. SYSTEM, ae SET SYSTEM SPACE BIT 
ADDL3 saves BOF : CALC CSR VIRTUAL ADDRESS 
MOVL 1AS AV 


i 

¢ Ge cs SAVE IN I 

Z MOVL scOTES AVALID!PTE c CRULOvCSR. PFN>,(R1); MAP PA OF CSR TO SYS VA 
5 


; Map Video Memory 


R1 
Bicw3 FC<OVCSREM MEMBANK> (RS ,R1; GET BASE E vss MEMORY BANK 


ASHL #-QVCSRSV_MEMBANK,R1,R1 ; MAKE IT SRO 
* MULL2 #°Xx4 Ri : COMPUTE 256k BANK 
9 ASH #-9,R1 RO : AND ISOLATE PFN 
9 MOV2wL #512,R{ : # OF PAGES 
9 BSBB Ss “PAGES : MAP VIDEO RAM 


PUG CERRINA phiver =pnn 138? he 383: # cote: dl Macro y04-00 Page (lg; 


MOVL #OPSM _OPACTIVE, CRBSL _OPFLAGS(R3); OPACTIVE ,NORE INIT ,NOREMAP ,NOVCACTI 


ee 


} 

OPDRVW = VAX/VMS QVSS CONSOLE TERMINA priver =JAN-1985 1 AX/VMS p | 
VOu-003 = INITIALIZE CONSOLE TERMINAL FOR NONSIN 18-DEC=198¢ 09:58:15 Lerseon.poesRctorDavus.maR: 42% (13) | 
08 50 €9 O2AA 595 BLEC ‘ ; NO SPTS THEN EXIT 

1C a3 58 00 6 aD 59 OV. nacht CRBBL =VIDEC_BASE(R3) SAVE STARTING VA OF B1TRAP 
50 0000'BF 3C O2B 98 MOVZWL asce ” NORMAL RO ‘ INDICATE SUCCESS 
1€ BA 0 a 99 100$:  POPR m<R1,R2,R3,R4> ' io 
05 OgBA 400 RSB 
BB «601 


T 
T 
F' 
7 
i 
7 
: il 
7 
7 


“~~ tt 
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voe-003 REMAP ~ RAP VIDEO RAM TO THE SCREEN epeen 1382 05:58:98 PEYSYOR.BoGshcSoppRvus.man;a 2 (18) | 
+4 ae -SBTTL REMAP = MAP VIDEO RAM TO THE SCREEN | 
BB ; REMAP 
88 ; Map the first 24 scan Lines to the screen. 


; Inputs: 
R3 = CRB Address for OPAO 


; Outputs: 
. RO, R1,R2 destroyed 


Implicit Outputs: 
R 


ae 
BB 
BB 
BB 
3B 
8B 
8B 

8 BS 

9 4 can Lines map video ram to the screen. 

0288 ; Side Effects: 
68 : Nore. 
58 
BB oo 

8 4 EMAP: 

8 +4 ; INIT THE SCAN MAP AND MAP SCREEN FULL OF LINES 

52 1C A3 0003F800 BF C1 b¢ee ADDL3 #QVSCAN_MAP,CRBSL_VIDEO_BASE(R3),R2; COMPUTE ADDRESS OF SCAN MAP 
50 D4 O2C4 5$ CLRL RO 
51 OOOOO0FO B&F DO 02C6 MOVL eeeras R1 ; NUMBER OF SCAN MAPS 
82 50 80 O02CD 10$ MOVW R25+ 
50 D6 0200 INCL RO 
F851 OFS bene SOBGTR FF see 
05 02D RSB 
0206 
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v04-00 
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55 50 
00000000 ' GF 
49 50 


51 
55 
50 
54 
6340 54 

6340 A0000000 8F 


6340 00180000 8F 


we 
52 80000000 8F 
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-SBTTL MAP_PAGES = MAP PHYSICALLY=CONTIGUOUS PAGES 
2 MAP PAGES 
Map to system virtual address space N physically-contiguous pages. 
: Inputs: 
. R1 


AL 


= number of physically-contiguous pages 


: RO Starting PFN 
; Outputs: 
3 RO = status: SUCCESS, INSFMEM, INSFSPTS 
: R1 = eres erved 
§ R2 = systen virtual address of N pages of memory if success 
3 all other registers preserved 
3 Implicit Outputs: 
3 None. 
3 Side Effects 
; 1OCSALLOSPT called - so SPTs are allocated 
hap “ieee 
PUSHR #*M<R1,R3,R4,R5> ; save work registers 
3 cl = input used as loop counter 
3 3 = address of SPT 
; 4 = index into PFN database 
; 5 = temp storage 
MOVL RO,R5 3; Save startin 
JSB G*{OCSALLOSPT ; allocate N SPTs to map VAs 
BLBC RO,30$ ; if LBC, no system page table slots 


FOCSALL OSPT returns: 
Ri = preserved, R2 = SVPN (index into SPT), R3 = address of SPT 


The main loop indexes backwards through the system page table entries 
and backwards through the PFN database. It goes backwards so that the 
last system virtual address calculated can be returned to the caller. 


Se Ge Ge Ge Ge te Ge Ge Se 


; r0 = index into SPT 

ADDL R1,R2,RC ; start at last SPT and go backwards 
ADDL R5,R1,R4 : start PFNs at end in loop 

10$: 3 set up system page-table entry 
DECL RO . back up SVPN index 
DECL RG 3; back PFN index 
MOVL R4,(R3) F {itt PFN in SPT x 
BISL2 acbrERL, cprem VALID>, (R3)CROJ ; user mode access, valid 
CPUDISP <<UV1,1 ; *Dispatch on CPU type* 

11$: BISL2 RRA (R3) CRO) : indicate QBUS memory for UV2 

; Invalidate system virtual address 

12s: ASHL #9 mg ;Re 3; turn SVPN into VA 
Bist: a<fa3i>,R2 : make VA a system VA 
INVALID R2 : and clear tlenalet ion buffer 


Ht tt a 
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T 
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v04-002 MAP_PAGES = MAP PHYSICALLY=CONTIGUOUS PA 13-DEC-1984 09:28: CSYSLOA. BUGSRCJOPDRVWS. MAR;4 (12) 
cy 37. 8S O3ee oes SOBGTR R1,10$ ; loop N times 
50 9000'@F  3C¢ b382 696 MOVZWL #SS$_NORMAL ,RO ; indicates success (R2 has system VA) 
3A BA 697 15$: POPR #AM<R1R3,RO,R5> ; restore work registers 


; no SPTs left 
; return 


SB : 
50 0000'S 3¢ 699 308: MOVZWL #SS$_INSFSPTS,RO : 
F6 700 BRB 158 : 


701 
ie CON_END: 
70 . END 


Sessesssssssssssssssssssssssssessssssssssssssssss2is 


OPDRVWS 
Symbol table 


SSMXSW 
ADPSL_VECTOR 


BOOSGL_SPTFREL 
Buss URSUPRTCPU 


CLASS “SETUP UCB 
ONSABORT ~ 
CONSC_BOOTCPU 
CONSDISCOMNECT 


CONSPUTCHAR 
CONSRELEASECTY 
CONSSENDCONSCMD 
CONSSET_LINE 
CONS 
CONSSTARTIO 
CONSSTOP 
CONSVC INP 
CONSXOF F 
CONSXON 
CONTROL _Q 
CONTROL ~S 


CON_END 
CRBSL_AUXSTRUC 


EXESV_ 
IDBSL-CSR 
IDBSL“UCBLST 
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OPDRVWS 
Symbol table 
QVCSRS$V_E 
QVCSRSV_MEME 


QvCSR_BOF 
QVCSR-CRTADDR 
QVCSRICRTDATA 


QVCSRTINTCTL 
QVCSRTINTDATA 
QVCSR-MOUSE 


V 
QVCSR“OF FSET 
QvCSR 


Q 
QVSCTLBLOCK 
QVSCUR_RAM 


QVSSSKEY 
QVSSS$KEYDECODE 
QVSSSKEYTABLE 
QVSSSPUTCHAR 
QVSUCODE 
QVSVIDEO_SIZE 
QVUARTSM_RXRDY 


_BEVTYPE 
UCB$B8_TT_DEPAR 
UCBSB_11 PARIT 


U 
UCBS$L-TT-PORT 


U 
UCBSM~INTTYPE 


NA_VIDEO 
“HEMBANK 
QVCSREV-MODE19 


UCBS$L_TT-PUTNXT 
nT 
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deo esanewmoamacca} 


! Psect synopsis ! 


pow rmesacmmamances 


Allocation PSECT No. Attributes 

00000000 ( 0.) 69 ( 0.) NOPIC USR CON ABS NOSHR NO 
Bebo o ete ( Bf 1¢ 1.) NOPIC USR CON ABS NOSHR 
00000334 ( 820.) 02 (¢ 2.) NOPIC USR CON” REL NOSHR 


tee areoceeces sn maonmoccoc aaa a} 


! Performance indicators ; 


Paw secmee sane as aene - 


EXE NORD NOWRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 
EXE RD WRT NOVEC LONG 


Page faults CPU Time Elapsed Time 
Initialization 0:00:01. 
Command processing :00: 1 


Pass 1 

Symbol table sort 

Pass 2 

Symbol tabie output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Soooooocooo 
Cooooc[eco: 


The verking set_Limit was 1800 pages. 
120665 bytes (236 pages) of virtual memory were used to buffer the intermediate ggde. 
There were 120 pages of symbol table space at Located to hold 2220 non-local and local symbols. 


759 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
69 pages of virtual memory were used to define 64 macros. 


poeeecoe sen emcee woce aosennacs $ 


! Macro Library statistics ; 


$ ores recor eeccaeene 


Macro library name Macros defined 


~$5z2S0UAIS: ESS 08 JL18.MLB;1 

$255$DUA18: CSYSLIBISTARLET.MLB;3 

TOTALS (all Libraries) 

2640 GETS were required to define 39 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:OPDRVWS/OBJ=0BJ$:OPDRVWS MSRC$:QVSCSR/UPDATE= (BUGS: QVSCSR) +MSRC$: OPDRVWS/UPDATE = (BUGS: OPDRVWS ) +E XECML$/LIB 
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